perm filename TRIG[900,BGB] blob
sn#129601 filedate 1974-11-11 generic text, type T, neo UTF8
00100 TITLE TRIG
00200 OPDEF JCALL[35B8]
00300 OPDEF CALL[34B8]
00400 P←14
00500 A←1
00600 B←2
00700 EXTERN MAKNUM,NUMVAL,SQRT,FLONUM,COS,SIN,ATAN
00740 INTERNAL COSINE,SINE,SQR,ARCTAN
00800 DEFINE FUN (LTAG,FTAG)
00900 {LTAG: CALL 1,NUMVAL
01000 MOVEM A,AR1
01040 MOVEM BLT1
01100 MOVE [XWD 1,BLT1+1]
01200 BLT BLT1+17
01300 JSA 16,FTAG
01400 JUMP 2,AR1
01450 MOVEM AR1
01500 MOVE [XWD BLT1+1,1]
01600 BLT 17
01640 MOVE BLT1
01700 MOVE A,AR1
01800 MOVEI B,FLONUM
01900 JCALL 2,MAKNUM⎇
02000
02100 AR1: 0
02200 BLT1: BLOCK 20
02300 FUN(SINE,SIN)
02400 FUN(COSINE,COS)
02500 FUN(SQR,SQRT)
02540 FUN(ARCTAN,ATAN)
02600 END